home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 199 / 199.d81 / b.hk3 atlantic (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  51 lines
  1. 0 rem    ***** hk atlantic boot *****
  2. 5 print"[147]":dv=peek(186):ifdv<8thendv=8
  3. 10 poke53280,0:poke53281,0:poke646,1:printchr$(14):printchr$(8)
  4. 15 gosub60000:q$=chr$(34)
  5. 20 v=10:h=10:gosub4145:print"[201]nitial [198]ile [195]heck."
  6. 25 df$="toolbox117 c000":gosub4205
  7. 30 df$="hk3 harbour":gosub4205
  8. 35 df$="hk3 bridge":gosub4205
  9. 40 df$="getword 1000":gosub4205
  10. 45 df$="f.harbour":gosub4205
  11. 50 df$="f.bridge":gosub4205
  12. 55 df$="navigation data":gosub4205
  13. 60 df$="t.hk sailing":gosub4205
  14. 65 df$="t.hk attack":gosub4205
  15. 70 forx=1to3:df$="h.hk"+str$(x):gosub4205:next
  16. 75 rem * v=10:gosub4155:h=10:gosub4145:print"[193]ny key when ready."
  17. 80 rem * a$="":geta$:ifa$=""then80
  18. 85 goto4405
  19. 4140 rem    ***** set cursor *****
  20. 4145 poke211,h:poke214,v:sys58732:return
  21. 4150 rem    ***** line delete *****
  22. 4155 poke781,v:gosub59903
  23. 4160 return
  24. 4200 rem    ***** file check *****
  25. 4205 open15,dv,15,"r:"+df$+"="+df$:input#15,er,a$,a,a:close15
  26. 4210 ifer=63thenreturn
  27. 4215 print"[147]":bd=0:bk=0:ch=1:gosub5205:h=12:v=12:gosub4145:print"[204][207][193][196] [197][210][210][207][210]!"
  28. 4220 h=8:v=14:gosub4145:print"[198]ile "+q$+df$+q$+" missing.":print"":end
  29. 4400 rem    ***** program file load *****
  30. 4405 df$="hk3 harbour":bd=0:bk=0:ch=0:gosub5205:print"[147]"
  31. 4410 v=21:h=8:gosub4145:print"[197][206][212][197][210][201][206][199][160][200][197][193][196][209][213][193][210][212][197][210][211].[144]"
  32. 4415 print"[144]load"q$df$q$","dv
  33. 4420 print"run":poke44,24:poke6144,0
  34. 4425 poke631,13:poke632,13:poke633,13:poke198,3:end
  35. 5160 return
  36. 5200 rem    ***** colour set *****
  37. 5205 poke53280,bd:poke53281,bk:poke646,ch:return
  38. 10000 dv=peek(186):open15,dv,15,"s:b.hk3 atlantic":close15
  39. 10005 save"b.hk3 atlantic",dv:end
  40. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  41. 60005 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  42. 60010 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  43. 60015 z$(0)="[200][213][206][212][197][210]-[203][201][204][204][197][210] [193][212][204][193][206][212][201][195]":z$(1)="(version 3)"
  44. 60020 z$(2)="([195]) 2000 by [195]harles [195]alvert "+chr$(13)
  45. 60025 z$(3)="[212]his program is a copyrighted work."
  46. 60030 z$(4)="[201]t is not shareware or in the"
  47. 60035 z$(5)="public domain."
  48. 60040 z$(6)="[210]eport illegal distribution of":z$(7)="this program by calling"
  49. 60045 z$(8)="1-905-643-7917.":poke214,12:print
  50. 60050 fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next:return
  51.